home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 18 / Commodore_Disc_18_19xx_-_de.d64 / space enemy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  12KB  |  276 lines
  1. 0 rem **************************
  2. 1 rem **************************
  3. 2 rem *     space enemy        *
  4. 3 rem *                        *
  5. 4 rem *       (c) 1987         *
  6. 5 rem *                        *
  7. 6 rem *      written by        *
  8. 7 rem *                        *
  9. 8 rem *   laurie the softest   *
  10. 9 rem **************************
  11. 10 :
  12. 50 poke 53280,0:poke 53281,0
  13. 2004 data 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
  14. 2006 data 133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
  15. 2010 fort=832to832+33:readq:poket,q:next
  16. 2020 sys832:poke850,160:sys832:poke56576,peek(56576)and252:poke53272,8
  17. 2030 poke648,192
  18. 2031 print"[147][155]             bitte warten"
  19. 2032 print"       daten werden eingelesen"
  20. 2050 readx:ifx=-1then2060
  21. 2052 cg=57344+x*8:for i=0to7:readz:pokecg+i,z:next:goto2050
  22. 2060 :
  23. 2070 data 27,255,255,255,255,255,255,255,255
  24. 2072 data 28,0,223,223,223,0,251,251,251
  25. 2074 data 29,128,128,224,240,248,248,252,255
  26. 2076 data 30,1,3,7,7,15,63,127,255
  27. 2078 data 31,255,252,240,224,224,192,192,128
  28. 2079 data 33,255,127,15,7,7,3,3,1
  29. 2080 data 35,2,2,4,136,72,72,40,16
  30. 2081 data 129,195,219,129,157,157,157,157,255
  31. 2082 data 142,141,181,181,149,149,149,153,255
  32. 2083 data 141,153,165,189,157,157,157,157,255
  33. 2084 data 36,255,255,255,255,255,255,254,252
  34. 2085 data37,239,207,207,151,55,119,119,243
  35. 2086 data 38,252,248,211,215,175,131,15,63
  36. 2087 data 40,3,3,251,249,253,241,249,253
  37. 2088 data 148,131,239,239,231,231,231,231,255
  38. 2089 data 146,129,189,189,129,155,157,157,255
  39. 2090 data 143,129,189,189,157,157,157,129,255
  40. 2091 data 130,131,219,193,205,205,205,129,255
  41. 2092 data 149,189,189,189,157,157,157,129,255
  42. 2100 data 176,129,189,185,149,141,157,129,255
  43. 2102 data 177,199,247,247,231,231,231,195,255
  44. 2109 data 178,129,189,253,129,159,159,129,255
  45. 2110 data 179,193,253,253,225,249,249,129,255
  46. 2111 data 180,191,191,187,187,129,243,243,255
  47. 2112 data 181,193,223,223,193,249,185,129,255
  48. 2113 data 182,129,191,191,129,157,157,129,255
  49. 2114 data 183,129,189,251,247,231,231,231,255
  50. 2115 data 184,195,219,219,129,157,157,129,255
  51. 2116 data 185,129,189,189,129,249,249,129,255
  52. 2118 data 140,191,191,191,159,159,159,129,255
  53. 2119 data 137,239,239,239,231,231,231,231,255
  54. 2120 data 150,189,189,189,219,219,231,231,255
  55. 2121 data 133,129,191,191,135,159,159,129,255
  56. 2122 data 147,129,189,191,129,249,185,129,255
  57. 2123 data 135,129,189,191,145,157,157,129,255
  58. 2124 data 151,157,157,157,157,189,165,153,255
  59. 2127 data 64,255,255,255,255,255,254,253,251
  60. 2128 data 65,255,255,248,199,63,255,255,254
  61. 2129 data 66,243,192,0,236,252,252,254,254
  62. 2130 data 67,255,255,127,15,119,121,62,62
  63. 2131 data 68,247,247,239,239,239,223,223,223
  64. 2132 data 69,30,142,192,224,224,240,248,252
  65. 2133 data 70,60,28,24,24,1,1,1,3
  66. 2134 data 71,127,191,223,239,239,239,247,247
  67. 2135 data 72,191,191,191,127,127,127,127,127
  68. 2136 data 73,255,255,255,255,224,128,39,72
  69. 2137 data 74,254,254,255,255,0,0,255,63
  70. 2138 data 75,3,3,7,7,0,0,255,248
  71. 2139 data 76,247,251,251,251,123,27,139,203
  72. 2140 data 77,127,127,127,127,127,191,191,191
  73. 2141 data 78,86,121,126,127,127,127,191,191
  74. 2142 data 79,1,147,150,12,248,240,224,192
  75. 2143 data 80,231,210,33,63,31,15,7,3
  76. 2144 data 81,203,219,211,215,215,135,135,159
  77. 2145 data 82,223,223,239,247,247,251,253,254
  78. 2146 data 83,191,188,112,64,128,128,128,128
  79. 2147 data 84,57,124,124,124,56,24,24,24
  80. 2148 data85,159,159,63,63,127,127,255,255
  81. 2149 data 86,64,224,240,248,252,254,255,255
  82. 2150 data 87,0,0,0,0,0,0,129,193
  83. 2151 data 88,12,12,12,4,116,198,130,2
  84. 2152 data 89,255,127,127,127,255,127,127,127
  85. 2153 data 90,241,249,249,248,255,255,255,255
  86. 2154 data 91,2,1,1,129,255,255,255,255
  87. 2155 data 92,63,63,63,63,255,255,255,255
  88. 2156 data -1
  89. 2157 :
  90. 3500 rem maschinenprogramm
  91. 3501 rem -----
  92. 3520 data 162,0,142,192,2,142,193,2,142,196,2,142,197,2
  93. 3522 data 206,252,207,174,252,207,224,0,208,102,162,30,142,252,207
  94. 3524 data 173,0,220,41,239
  95. 3600 data 141,254,207,162,0,142,253,207,32,0,200,173,0,220,201,112,176,74
  96. 3602 data 173,21,208,41,2,201,2,240,65,162,0,142,194,2,142,195,2
  97. 3603 data 173,16,208,41,253,141,16,208,41,1,201,1
  98. 3604 data 208,8,173,16,208,9,2,141,16,208,174,0,208,142,2,208,174,1,208
  99. 3606 data 142,3,208,162,0,32,172,200,174,0,220,224,109,240,11,32,102,201
  100. 3608 data  173,21,208,9,2,141,21,208
  101. 3611 data 206,251,207,174,251,207,224,0,208,104,162,30,142,251,207
  102. 3612 data 173,1,220,41,111,141,254,207,162,4,142,253,207,162,2,32,0,200
  103. 3613 data 173,1,220
  104. 3614 data201,240,176,74,173,21,208,41,8,201,8,240,65,162,0,142,198,2,142,199,2
  105. 3615 data 173,16,208,41,247,141,16,208,41,4,201,4
  106. 3616 data 208,8,173,16,208,9,8,141,16,208,174,4,208,142,6,208,174,5,208
  107. 3618 data 142,7,208,162,2,32,172,200,174,1,220,224,237,240,11,32,102,201
  108. 3620 data 173,21,208,9,8,141,21,208
  109. 3622 :
  110. 3623 data 173,30,208,141,249,207,41,2,201,2,240,12
  111. 3624 data 173,31,208,141,255,207,41,2,201,2,208,8,173,21,208,41,253,141,21,208
  112. 3625 data 173,249,207,41,8,201,8,240,9
  113. 3626 data 173,255,207,41,8,201,8,208,8,173,21,208,41,247,141,21,208
  114. 3632 data 174,0,208,142,8,208,174,4,208,142,10,208,174,1,208,232,232
  115. 3634 data 142,9,208,174,5,208,232,232,142,11,208
  116. 3635 :
  117. 3637 data 174,0,208,224,0,208,8,173,16,208,9,16,141,16,208,174,0,208,224,255
  118. 3639 data 208,8,173,16,208,41,239,141,16,208,174,4,208,224,0,208,8,173,16,208
  119. 3641 data 9,32,141,16,208,174,4,208,224,255,208,8,173,16,208,41,223,141,16,208
  120. 3645 :
  121. 3647 data 206,250,207,174,250,207,224,0,208,43,162,99,142,250,207
  122. 3649 data174,252,195,224,54,208,17,238,253,195,238,252,195,162,2,142,43,208,142
  123. 3651 data 44,208,24,144,14,206,253,195,206,252,195,162,1,142,43,208,142,44,208
  124. 3671 data 173,255,207,41,1,201,1,240,9
  125. 3672 data 173,249,207,41,1,201,1,208,72,162,40,142,0,208,142,8,208
  126. 3673 data 162 ,165,142,1,208,232,232,142,9,208,173,16,208,41,238,141,16,208
  127. 3674 data 173,21,208,41,247,141,21,208,32,73,201,162,1,142,33,208
  128. 3678 data 32,126,201,162,8,142,33,208,32,126,201,162,0,142,33,208,174,41,195
  129. 3679 data 224,176,208,1,96,174,30,208,206,41,195
  130. 3680 data 173,255,207,41,4,201,4,240,9
  131. 3681 data 173,249,207,41,4,201,4,208,72,162,45,142,4,208,142,10,208,162,165
  132. 3682 data 142,5,208,232,232,142,11,208,173,16,208,9,36,141,16,208
  133. 3683 data173,21,208,41,253,141,21,208,32,73,201,162,1,142,33,208,32,126,201
  134. 3685 data 162,8,142,33,208,32,126,201,162,0,142,33,208,174,68,195,224,176
  135. 3689 data 208,1,96,174,30,208,206,68,195
  136. 3705 data 174,13,208,224,131,208,10,162,1,142,205,2,162,255,142,204,2
  137. 3706 data 174,13,208,224,160,208,10,162,255,142,205,2,162,1,142,204,2
  138. 4203 data 162,15,169,128,141,61,3,141,60,3,222,208,2,208,44,189,176,2,157,208,2
  139. 4205 data189,192,2,240,33,16,12,189,0,208,8,222,0,208,40,240,7,208,19,254,0,208
  140. 4207 data 208,14,173,60,3,208,9,173,61,3,77,16,208,141,16,208,173,60,3,208
  141. 4209 data 3,78,61,3,73,128,141,60,3,202,16,191,76,24,196
  142. 4210 data -1
  143. 4215 data 172,254,207,192,110,208,13,172,253,207,169,255,153,193,2,169,40
  144. 4216 data 157,248,195,172,254,207,192,109,208,8,172,253,207,169,1,153,193,2
  145. 4217 data 172,254,207,192,103,208,13,172,253,207,169,1,153,192,2,169,44
  146. 4218 data 157,248,195,172,254,207,192,107,208,13,172,253,207,169,255,153,192,2
  147. 4219 data 169,43,157,248,195,172,254,207,192,102,208,18,172,253,207,169,1
  148. 4220 data 153,192,2,169,255,153,193,2,169,41,157,248,195,172,254,207,192,106
  149. 4221 data 208 ,16,172,253,207,169,255,153,192,2,153,193,2,169,42,157,248,195
  150. 4223 data 172,254,207,192,105,208,18,172,253,207,169,255,153,192,2,169,1
  151. 4224 data 153,193,2,169,46,157,248,195,172,254,207,192,101,208,16,172,253,207
  152. 4225 data 169,1,153,192,2,153,193,2,169,45,157,248,195,96
  153. 4229 data 188,248,195,192,40,208,13,172,253,207,169,255,153,195,2,169,47
  154. 4230 data 157,249,195,188,248,195,192,44,208,13,172,253,207,169,1,153,194,2
  155. 4231 data 169,50,157,249,195,188,248,195,192,43,208,13,172,253,207,169,255
  156. 4232 data 153,194,2,169,51,157,249,195,188,248,195,192,41,208,18,172,253,207
  157. 4234 data 169,1,153,194,2,169,255,153,195,2,169,48,157,249,195,188,248,195
  158. 4236 data 192,42,208,16,172,253,207,169,255,153,194,2,153,195,2,169,49
  159. 4237 data 157,249,195,188,248,195,192,46,208,18,172,253,207,169,255,153,194,2
  160. 4238 data 169,1,153,195,2,169,53,157,249,195,188,248,195,192,45,208,16
  161. 4239 data 172,253,207,169,1,153,194,2,153,195,2,169,52,157,249,195,96
  162. 4246 data 162,0,142,4,212,162,13,142,5,212,142,6,212,162,13,142,1,212,162,255
  163. 4248 data 142,0,212,162,129,142,4,212,96
  164. 4252 data162,0,142,11,212,162,11,142,12,212,142,13,212,162,23,142,8,212,162,129
  165. 4254 data 142,11,212,96
  166. 4259 data 162,25,160,255,192,0,240,3,136,208,249,202,224,0,208,242,96,-1
  167. 4260 :
  168. 5000 rem ---- sprites
  169. 5010 :
  170. 5014 data,,,,,,,,,,8,,,8,,,8,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128
  171. 5016 data,62,,,,,,,,,,,,,,,,,,,,,,,,,
  172. 5020 data,,,,,,,,,,1,,,2,,,4,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128
  173. 5022 data,62,,,,,,,,,,,,,,,,,,,,,,,,,
  174. 5026 data,,,,,,,,,,64,,,32,,,16,,,8,,,62,,,221,128,1,190,192,1,190,192,,221,128
  175. 5028 data,62,,,,,,,,,,,,,,,,,,,,,,,,,
  176. 5032 data,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,15,190,192,,221,128
  177. 5034 data,62,,,,,,,,,,,,,,,,,,,,,,,,,
  178. 5038 data,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,248,,221,128
  179. 5040 data,62,,,,,,,,,,,,,,,,,,,,,,,,,
  180. 5044 data,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,192,,221,128
  181. 5046 data,62,64,,,32,,,16,,,,,,,,,,,,,,,,,,
  182. 5050 data,,,,,,,,,,,,,,,,,,,,,,62,,,221,128,1,190,192,1,190,192,,221,128,1,62,
  183. 5052 data2,,,4,,,,,,,,,,,,,,,,,,,,
  184. 5056 data,12,,,12,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  185. 5062 data,,96,,,96,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  186. 5068 data3,,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  187. 5074 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  188. 5079 data,,,,,,,,,,,,,,,,,,,,,,,,,,,96,,,96,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  189. 5083 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,3,,,,,,
  190. 5087 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,96,,,96,,,,,,,,
  191. 5090 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,20,,,46,,,50,,,46,,,38,,,28,,,28
  192. 5092 data,,8,,,8,
  193. 5096 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,28,,,50,,,46,,,50,,,58,,,20,,,28
  194. 5097 data,,8,,,8,
  195. 5100 data,,3,,,7,,,14,,,20,,,40,,,80,,,224,,1,192,,3,128,,5,,,10,,,20,,,56
  196. 5102 data,,112,,,224,,1,64,,2,128,,5,,,14,,,28,,,24,,
  197. 5104 :
  198. 6000 rem einlesen der daten
  199. 6002 :
  200. 6004 fort=0to9999:readq:ifq=-1then6008
  201. 6006 poke50200+t,q:next
  202. 6008 fort=0to9999:readq:ifq=-1then6012
  203. 6010 poke51200+t,q:next
  204. 6012 :
  205. 6020 fort=0to62:readq:poke51712+t,q:next
  206. 6022 fort=0to62:readq:poke51776+t,q:next
  207. 6024 fort=0to62:readq:poke51840+t,q:next
  208. 6026 fort=0to62:readq:poke51904+t,q:next
  209. 6028 fort=0to62:readq:poke51968+t,q:next
  210. 6030 fort=0to62:readq:poke52032+t,q:next
  211. 6032 fort=0to62:readq:poke52096+t,q:next
  212. 6034 fort=0to62:readq:poke52160+t,q:next
  213. 6036 fort=0to62:readq:poke52224+t,q:next
  214. 6038 fort=0to62:readq:poke52288+t,q:next
  215. 6040 fort=0to62:readq:poke52352+t,q:next
  216. 6042 fort=0to62:readq:poke52416+t,q:next
  217. 6044 fort=0to62:readq:poke52480+t,q:next
  218. 6046 fort=0to62:readq:poke52544+t,q:next
  219. 6048 fort=0to62:readq:poke52608+t,q:next
  220. 6050 fort=0to62:readq:poke52672+t,q:next
  221. 6052 fort=0to62:readq:poke52736+t,q:next
  222. 6054 :
  223. 7000 rem ----- variablen,daten
  224. 7002 :
  225. 7004 v=53248:poke53265,peek(53265)and239
  226. 7010 fort=688to719:poket,0:next
  227. 7014 fort=39to45:pokev+t,15:next
  228. 7022 pokev,40:pokev+1,165:poke688,1:poke689,1:poke50168,41:pokev+39,8
  229. 7024 poke690,10:poke691,10
  230. 7026 pokev+4,45:pokev+5,165:poke692,1:poke693,1:poke50170,46
  231. 7028 poke694,10:poke695,10
  232. 7029 pokev+12,143:pokev+13,150:poke716,1:poke717,255:poke700,30:poke701,30
  233. 7030 poke50174,56
  234. 7031 :
  235. 7040 pokev+16,36:pokev+21,1+4+16+32+64
  236. 7044 pokev+27,1+4+16+32+64
  237. 7045 pokev+30,0:pokev+31,0
  238. 7046 :
  239. 7050 poke50172,54:poke50173,54
  240. 8012 si=54272:fort=0to24:pokesi+t,0:next
  241. 8014 pokesi+24,31:pokesi+21,3:pokesi+22,3:pokesi+23,241
  242. 8016 :
  243. 9000 rem ---- grafik
  244. 9010 :
  245. 9020 print"[147][149][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["
  246. 9022 print"[145][[[[[[[[[[[[_                       ![[["
  247. 9024 print"[145][_       ![_                         [[["
  248. 9026 print"[145][         _                         ^[[["
  249. 9028 print"[145][                                    ![["
  250. 9030 print"[145][                        ^_           !["
  251. 9032 print"[145][                     ^]^_             ["
  252. 9034 print"[145][                   [153]#[149]^[[[              ["
  253. 9036 print"[145][]                  ![[[_          ^][153]#[149]^["
  254. 9038 print"[145][[]                 ^_ !]          ![[[["
  255. 9040 print"[145][[[]                !]             ^[[[["
  256. 9042 print"[145][[[_     ^[[]        !              ![[["
  257. 9044 print"[145][[_     ^[198][193][194][192]]                       ![["
  258. 9046 print"[145][_      [[196][[197][198][194][[[[160]                    !["
  259. 9048 print"[145][      ^[[200][201][202][203][204][[_                      ["
  260. 9050 print"[145][]     [[[205][206][207][208][209][[                ^]     ["
  261. 9052 print"[145][[    ^[[_[211] [194][213][[][153]#[149]             ^[[]   ^["
  262. 9054 print"[145][[[155][205][205][205][149][[[[[[214][215][216][167][[[[[[[[[[[[[[[[[[[[[[155][205][205][205][149][["
  263. 9056 print"[145][[[[[[[[[[[[218][219][220][[[[[[[[[[[[[[[[[[[[[[[[[["
  264. 9058 print"[145][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["
  265. 9060 print"[145][[[lives[146][[[[[[s p a c e[146][[[[[[[lives[146][5[146][[[[["
  266. 9062 print"[145][[[[[[[[[[[[[[[[enemy[146][[[[[[[[[[[[[[[[[[["
  267. 9064 print"[145][[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["
  268. 9066 :
  269. 9068 poke49152+809,181:poke49152+836,181
  270. 9070 poke53265,peek(53265)or16
  271. 9100 sys50200
  272. 9150 poke214,18:poke211,15:sys58640
  273. 9152 print"[149]'n' = new game"
  274. 9164 geta$:ifa$<>"n"then9164
  275. 9200 goto 7000
  276.